object dmGlobal: TdmGlobal
  OldCreateOrder = False
  Height = 431
  Width = 645
  object dsUsers: TDataSource
    DataSet = qrUsers
    Left = 24
    Top = 112
  end
  object connGlobal: TUniConnection
    ProviderName = 'MySQL'
    Port = 3306
    Database = 'orders'
    SpecificOptions.Strings = (
      'MySQL.UseUnicode=True')
    DefaultTransaction.DefaultConnection = connGlobal
    Username = 'men'
    LoginPrompt = False
    AfterConnect = connGlobalAfterConnect
    BeforeDisconnect = connGlobalBeforeDisconnect
    OnError = connGlobalError
    Left = 24
    Top = 16
  end
  object qrUsers: TUniQuery
    Connection = connGlobal
    SQL.Strings = (
      'SELECT rec_id, surname, passwd, access'
      'FROM orders.users'
      'ORDER BY surname')
    Left = 24
    Top = 64
  end
  object MySQLUniProvider1: TMySQLUniProvider
    Left = 72
    Top = 16
  end
end
